let _ =
  let lexbuf = Lexing.from_channel stdin in
  let program = Parser.program Scanner.token lexbuf in
  let listing = Bytecode.string_of_prog (Compile.translate program)
           in print_string listing
